home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspm.arc / FFD500FM.DSP < prev    next >
Encoding:
Text File  |  1991-12-04  |  6.9 KB  |  121 lines
  1.      A*            15:06:28    PKPGMR      REL-R08M00  5714-UT1
  2.      A                                      DSPSIZ(24 80 *DS3)
  3.      A                                      CHGINPDFT
  4.      A                                      PRINT(QSYSPRT.*LIBL)
  5.      A                                      CF01
  6.      A                                      INDARA
  7.      A          R FFD500S1                  SFL
  8.      A*            15:06:28    PKPGMR      REL-R08M00  5714-UT1
  9.      A            MLMTXT        50A  H
  10.      A            SFREC1         3S 0H
  11.      A            SFTEST         1A  I 12  2DSPATR(HI)
  12.      A N95                                  DSPATR(UL)
  13.      A                                      VALUES(' ' '1' 'C' 'R' 'F' 'T')
  14.      A  95                                  DSPATR(PR)
  15.      A            MLNAME        10A  O 12  4TEXT('Member Name')
  16.      A  95                                  DSPATR(RI)
  17.      A            MLNRCD    R        O 12 16REFFLD(MLNRCD.QWHFDML DSPFDMWK)
  18.      A                                      TEXT('Current Number of Records')
  19.      A            MLCHGD         6A  O 12 26TEXT('Date last Changed')
  20.      A            MLCHGT         6A  O 12 33TEXT('Time Last Changed')
  21.      A            SFMTXT        40A  O 12 40TEXT('Member Text')
  22.      A          R FFD500C1                  SFLCTL(FFD500S1)
  23.      A*            15:06:28    PKPGMR      REL-R08M00  5714-UT1
  24.      A                                      SFLSIZ(0999)
  25.      A                                      SFLPAG(0012)
  26.      A                                      CF04
  27.      A                                      BLINK
  28.      A                                      OVERLAY
  29.      A                                      SFLDSP
  30.      A                                      SFLDSPCTL
  31.      A  90                                  SFLEND
  32.      A            SFLRCD         4S 0H      SFLRCDNBR(CURSOR)
  33.      A                                  1  3'User'
  34.      A            USERID        10A  O  1  8TEXT('User Name')
  35.      A N98                              1 22'File Member Maintenance & Selectio-
  36.      A                                      n'
  37.      A                                      DSPATR(HI)
  38.      A                                      DSPATR(UL)
  39.      A  98                                  DSPATR(ND)
  40.      A  98                              1 27'File Member Selection'
  41.      A                                      DSPATR(HI)
  42.      A                                      DSPATR(UL)
  43.      A N98                                  DSPATR(ND)
  44.      A                                  1 59DATE
  45.      A                                      EDTCDE(Y)
  46.      A                                  1 68TIME
  47.      A                                  3  3'File Name----->'
  48.      A            MLFILE        10A  O  3 19TEXT('File Name')
  49.      A                                      DSPATR(HI)
  50.      A                                  3 41'( 1 )'
  51.      A                                      DSPATR(HI)
  52.      A                                  3 47'- Select Member for Processing'
  53.      A                                  4  3'Library Name-->'
  54.      A            MLLIB         10A  O  4 19DSPATR(HI)
  55.      A                                  4 41'( C )'
  56.      A                                      DSPATR(HI)
  57.      A  98                                  DSPATR(ND)
  58.      A                                  4 47'- Clear Member, CLRPFM'
  59.      A  98                                  DSPATR(ND)
  60.      A                                  5  3'File Type----->'
  61.      A            MLFILA         4A  O  5 19DSPATR(HI)
  62.      A                                  5 41'( R )'
  63.      A                                      DSPATR(HI)
  64.      A  98                                  DSPATR(ND)
  65.      A                                  5 47'- Remove Member, RMVM'
  66.      A  98                                  DSPATR(ND)
  67.      A                                  6  3'# of Members-->'
  68.      A            MLNOMB    R        O  6 19REFFLD(MLNOMB.QWHFDML DSPFDMWK)
  69.      A                                      DSPATR(HI)
  70.      A                                  6 41'( F )'
  71.      A                                      DSPATR(HI)
  72.      A  98                                  DSPATR(ND)
  73.      A                                  6 47'- From Member, CPYF'
  74.      A  98                                  DSPATR(ND)
  75.      A                                  7  3'Selected Mbr-->'
  76.      A            MEMBER        10A  O  7 19DSPATR(HI)
  77.      A                                      TEXT('Selected Member Name')
  78.      A                                  7 41'( T )'
  79.      A                                      DSPATR(HI)
  80.      A  98                                  DSPATR(ND)
  81.      A                                  7 47'- To Member, CPYF'
  82.      A  98                                  DSPATR(ND)
  83.      A                                  8 17'(*REPLACE,*ADD)'
  84.      A  98                                  DSPATR(ND)
  85.      A                                  9  3'CPYF'
  86.      A                                      DSPATR(HI)
  87.      A  98                                  DSPATR(ND)
  88.      A                                  9  8'Option--->'
  89.      A  98                                  DSPATR(ND)
  90.      A            WCOPT          8A  B  9 19DSPATR(UL)
  91.      A                                      DSPATR(HI)
  92.      A  98                                  DSPATR(ND)
  93.      A  98                                  DSPATR(PR)
  94.      A                                      VALUES('*REPLACE' '*ADD')
  95.      A                                 10 32'Press'
  96.      A                                 10 38'ENTER'
  97.      A                                      DSPATR(HI)
  98.      A                                 10 44'to Process'
  99.      A                                 10 58'CMD 1'
  100.      A                                      DSPATR(HI)
  101.      A                                 10 64'- End Of Job'
  102.      A                                 11  4'  Member    # Records  Last Change-
  103.      A                                      d       Member Text ( 1st 40 bytes -
  104.      A                                      )     '
  105.      A                                      DSPATR(UL)
  106.      A          R MSGRCD                    SFL
  107.      A*            10:03:26    DAVE        REL-R06M00  5714-UT1
  108.      A                                      SFLMSGRCD(24)
  109.      A            MSGKEY                    SFLMSGKEY
  110.      A            PGMSGQ                    SFLPGMQ
  111.      A          R MSGCTL                    SFLCTL(MSGRCD)
  112.      A*            10:03:26    DAVE        REL-R06M00  5714-UT1
  113.      A                                      OVERLAY
  114.      A                                      SFLDSP
  115.      A                                      SFLDSPCTL
  116.      A                                      SFLINZ
  117.      A N91                                  SFLEND
  118.      A                                      SFLSIZ(0010)
  119.      A                                      SFLPAG(0001)
  120.      A            PGMSGQ                    SFLPGMQ
  121.